***************************************************************
For best results, view this program in notepad using no word
wrap and the TI 83 plus pc font, available for download at:
http://education.ti.com/educationportal/sites/US/productDetail/us_key_font_83p_84p.html
***************************************************************
Program:DOTSTORM

StoreGDB 1
AxesOff
FnOff 
GridOff
CoordOff
Lbl ME
ClrHome
Menu("DOTSTORM","PLAY GAME",PG,"LEVEL EDITOR",LE,"HOW TO PLAY",HP,"**HIGH SCORES",HS,"ABOUT",AB,"EXIT",XX
Lbl LE
DelVar [A]
{20,31}dim([A])
1R
1C
0K
Repeat K=105
getKeyK
If K=24 or K=25 or K=26 or K=34
Then
min(20,max(1,R+sum(List(K={25,34R
min(31,max(1,C+sum(List(K={24,26C
Pxl-Change(3R,3C
Pxl-Change(3R+1,3C
Pxl-Change(3R,3C+1
Pxl-Change(3R+1,3C+1
pxl-Test(3R,3C
Ans-(Ans=0)+QQ
If [A](R,C)=1
Then
0[A](R,C)
Else
1[A](R,C)
End
End
End
ClrHome
Output(4,4,"SAVING ..."
DelVar L
0X
0U
For(R,1,20
For(C,1,31)
U+1U
If fPart(U/39)=0
Output(5,U/39,"X"
If [A](R,C)=1
Then
1+XX
R+.01CL(X)
End
End
End
Output(5,16,"X
Output(6,5,"COMPLETE
Pause
Goto ME
Lbl HP
Output(1,1,"IN DOTSTORM, YOU MUST ELIMINATE ALL THE DOTS ON THE SCREEN.  TO DO THIS, MOVE YOUR CURSOR OVER A DOT AND IT WILL DISAPPEAR.
Pause 
ClrHome
Output(1,1,"BUT IF YOU MOVE YOUR CURSOR OVER A BLANK SPOT, A DOT WILL BE CREATED.
Pause 
Goto ME
Lbl HS
Disp "HIGH SCORES 
Disp "NOT FUNCTIONAL
Pause 
Goto ME
Lbl AB
ClrHome
Output(1,4,"DotSTORM
Output(3,4,"V1 BETA
Output(4,1,"================
Output(5,5,"DEV BY:
Output(6,2,"STEPHEN BRENNAN
Output(8,2,"ENTER TO CONT.
Pause 
Goto ME
Lbl PG
ClrDraw
Menu("SELECT LEVEL","LEVEL 1",L1,"LEVEL 2",L2,"LEVEL 3",L3,"LEVEL 4",L4,"LEVEL 5",L5,"LOAD LEVEL (L)",LL
Lbl LL
LL
Goto GS
Lbl L1
{1.01,1.02L
Lbl L2
{1.01,1.02L
Goto GS
Lbl L3
{1.01,1.02L
Goto GS
Lbl L4
{1.01,1.02L
Goto GS
Lbl L5
{1.01,1.02L
Goto GS
Lbl GS
For(I,1,dim(L
iPart(L(IR
100fPart(L(IC
Pxl-On(3R+1,3C+1
Pxl-On(3R+1,3C
Pxl-On(3R,3C+1
Pxl-On(3R,3C
End
dim(L)Q
1R
1C
0K
Repeat not(Q) or K=21
getKeyK
If K=24 or K=25 or K=26 or K=34
Then
min(20,max(1,R+sum(List(K={25,34R
min(31,max(1,C+sum(List(K={24,26C
Pxl-Change(3R,3C
Pxl-Change(3R+1,3C
Pxl-Change(3R,3C+1
Pxl-Change(3R+1,3C+1
pxl-Test(3R,3C
Ans-(Ans=0)+QQ
End
End
ClrHome
Output(4,5,"YOU "+sub("WON LOST",1+4(K=21),4
Pause 
Goto ME
Lbl XX
ClrHome
ClrDraw
RecallGDB 1